home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / vberr_16.zip / VBERR-16.FRM < prev    next >
Text File  |  1996-01-07  |  8KB  |  245 lines
  1. VERSION 4.00
  2. Begin VB.Form frmDisplayOnline 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "VB/Error Handler (v 4.00)"
  6.    ClientHeight    =   3165
  7.    ClientLeft      =   945
  8.    ClientTop       =   1380
  9.    ClientWidth     =   6135
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   3510
  22.    Left            =   915
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    ScaleHeight     =   3165
  26.    ScaleWidth      =   6135
  27.    Top             =   1065
  28.    Width           =   6195
  29.    Begin VB.CommandButton cmdOnTop 
  30.       Appearance      =   0  'Flat
  31.       BackColor       =   &H80000005&
  32.       Caption         =   "C1"
  33.       Height          =   345
  34.       Left            =   4320
  35.       TabIndex        =   8
  36.       Top             =   270
  37.       Width           =   1725
  38.    End
  39.    Begin VB.Frame Frame1 
  40.       Appearance      =   0  'Flat
  41.       BackColor       =   &H00C0C0C0&
  42.       Caption         =   "Total last same handle"
  43.       BeginProperty Font 
  44.          name            =   "MS Sans Serif"
  45.          charset         =   1
  46.          weight          =   400
  47.          size            =   8.25
  48.          underline       =   0   'False
  49.          italic          =   0   'False
  50.          strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H80000008&
  53.       Height          =   645
  54.       Left            =   90
  55.       TabIndex        =   2
  56.       Top             =   90
  57.       Width           =   1905
  58.       Begin VB.Label lblHandle 
  59.          Alignment       =   2  'Center
  60.          Appearance      =   0  'Flat
  61.          BackColor       =   &H00808080&
  62.          Caption         =   "0000"
  63.          BeginProperty Font 
  64.             name            =   "MS Sans Serif"
  65.             charset         =   1
  66.             weight          =   400
  67.             size            =   8.25
  68.             underline       =   0   'False
  69.             italic          =   0   'False
  70.             strikethrough   =   0   'False
  71.          EndProperty
  72.          ForeColor       =   &H00FFFFFF&
  73.          Height          =   195
  74.          Left            =   1080
  75.          TabIndex        =   1
  76.          Top             =   360
  77.          Width           =   645
  78.       End
  79.       Begin VB.Label lblCounter 
  80.          Alignment       =   2  'Center
  81.          Appearance      =   0  'Flat
  82.          BackColor       =   &H00808080&
  83.          Caption         =   "0000"
  84.          BeginProperty Font 
  85.             name            =   "MS Sans Serif"
  86.             charset         =   1
  87.             weight          =   400
  88.             size            =   8.25
  89.             underline       =   0   'False
  90.             italic          =   0   'False
  91.             strikethrough   =   0   'False
  92.          EndProperty
  93.          ForeColor       =   &H00FFFFFF&
  94.          Height          =   195
  95.          Left            =   180
  96.          TabIndex        =   0
  97.          Top             =   360
  98.          Width           =   645
  99.       End
  100.    End
  101.    Begin VB.ListBox lstOnline 
  102.       Appearance      =   0  'Flat
  103.       BackColor       =   &H00C0C0C0&
  104.       BeginProperty Font 
  105.          name            =   "MS Sans Serif"
  106.          charset         =   1
  107.          weight          =   400
  108.          size            =   8.25
  109.          underline       =   0   'False
  110.          italic          =   0   'False
  111.          strikethrough   =   0   'False
  112.       EndProperty
  113.       ForeColor       =   &H00000000&
  114.       Height          =   1980
  115.       Left            =   90
  116.       TabIndex        =   7
  117.       Top             =   1080
  118.       Width           =   5955
  119.    End
  120.    Begin VB.Label lblTitle 
  121.       Alignment       =   2  'Center
  122.       Appearance      =   0  'Flat
  123.       BackColor       =   &H00808080&
  124.       BeginProperty Font 
  125.          name            =   "MS Sans Serif"
  126.          charset         =   1
  127.          weight          =   400
  128.          size            =   8.25
  129.          underline       =   0   'False
  130.          italic          =   0   'False
  131.          strikethrough   =   0   'False
  132.       EndProperty
  133.       ForeColor       =   &H00FFFFFF&
  134.       Height          =   195
  135.       Index           =   3
  136.       Left            =   2970
  137.       TabIndex        =   6
  138.       Top             =   810
  139.       Width           =   3075
  140.    End
  141.    Begin VB.Label lblTitle 
  142.       Alignment       =   2  'Center
  143.       Appearance      =   0  'Flat
  144.       BackColor       =   &H00808080&
  145.       BeginProperty Font 
  146.          name            =   "MS Sans Serif"
  147.          charset         =   1
  148.          weight          =   400
  149.          size            =   8.25
  150.          underline       =   0   'False
  151.          italic          =   0   'False
  152.          strikethrough   =   0   'False
  153.       EndProperty
  154.       ForeColor       =   &H00FFFFFF&
  155.       Height          =   195
  156.       Index           =   2
  157.       Left            =   1530
  158.       TabIndex        =   5
  159.       Top             =   810
  160.       Width           =   1365
  161.    End
  162.    Begin VB.Label lblTitle 
  163.       Alignment       =   2  'Center
  164.       Appearance      =   0  'Flat
  165.       BackColor       =   &H00808080&
  166.       BeginProperty Font 
  167.          name            =   "MS Sans Serif"
  168.          charset         =   1
  169.          weight          =   400
  170.          size            =   8.25
  171.          underline       =   0   'False
  172.          italic          =   0   'False
  173.          strikethrough   =   0   'False
  174.       EndProperty
  175.       ForeColor       =   &H00FFFFFF&
  176.       Height          =   195
  177.       Index           =   1
  178.       Left            =   810
  179.       TabIndex        =   4
  180.       Top             =   810
  181.       Width           =   645
  182.    End
  183.    Begin VB.Label lblTitle 
  184.       Alignment       =   2  'Center
  185.       Appearance      =   0  'Flat
  186.       BackColor       =   &H00808080&
  187.       BeginProperty Font 
  188.          name            =   "MS Sans Serif"
  189.          charset         =   1
  190.          weight          =   400
  191.          size            =   8.25
  192.          underline       =   0   'False
  193.          italic          =   0   'False
  194.          strikethrough   =   0   'False
  195.       EndProperty
  196.       ForeColor       =   &H00FFFFFF&
  197.       Height          =   195
  198.       Index           =   0
  199.       Left            =   90
  200.       TabIndex        =   3
  201.       Top             =   810
  202.       Width           =   645
  203.    End
  204. End
  205. Attribute VB_Name = "frmDisplayOnline"
  206. Attribute VB_Creatable = False
  207. Attribute VB_Exposed = False
  208. Option Explicit
  209.  
  210. Private Declare Function SetWindowPos Lib "user" (ByVal hWnd As Integer, ByVal Position As Integer, ByVal nH As Integer, ByVal nV As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal nFlags As Integer) As Integer
  211.  
  212. Private Sub cmdOnTop_Click()
  213.  
  214.    Dim Dummy   As Integer
  215.  
  216.    If (cmdOnTop.Tag = "Y") Then
  217.       cmdOnTop.Tag = "N"
  218.       cmdOnTop.Caption = mcReadText("F", "")
  219.       Dummy = SetWindowPos(frmDisplayOnline.hWnd, -1, 0, 0, 0, 0, &H43)
  220.    Else
  221.       cmdOnTop.Tag = "Y"
  222.       cmdOnTop.Caption = mcReadText("E", "")
  223.       Dummy = SetWindowPos(frmDisplayOnline.hWnd, -2, 0, 0, 0, 0, &H43)
  224.       frmAddHndErr.ZOrder 0
  225.    End If
  226.  
  227. End Sub
  228.  
  229. Private Sub Form_Load()
  230.  
  231.    Me.Caption = mcReadText("G", "")
  232.  
  233.    Frame1 = mcReadText("9", "")
  234.  
  235.    lblTitle(0) = mcReadText("A", "")
  236.    lblTitle(1) = mcReadText("B", "")
  237.    lblTitle(2) = mcReadText("C", "")
  238.    lblTitle(3) = mcReadText("D", "")
  239.  
  240.    cmdOnTop.Tag = "Y"
  241.    cmdOnTop.Caption = mcReadText("E", "")
  242.  
  243. End Sub
  244.  
  245.